home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64 / superfrac 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  78 lines
  1. 1000 rem ****************
  2. 1010 rem * superfrac 64 *
  3. 1020 rem * version 4.57 *
  4. 1030 rem * vom 02.07.87 *
  5. 1040 rem * programming: *
  6. 1050 rem * i.camphausen *
  7. 1060 rem ****************
  8. 1070 :
  9. 1080 if a=0 then print"[147]";tab(13);"moment bitte!"
  10. 1090 if a=0 then poke 55,0:poke 56,142:clr:a=1:load"mc.sf 64",8,1
  11. 1100 if a=1 then a=2:load"dat.sf 64",8,1
  12. 1110 :
  13. 1120 rem
  14. 1130 rem **************************
  15. 1140 rem variable/wichtige adressen
  16. 1150 rem **************************
  17. 1160 rem
  18. 1170 ru=36396:di=36413:be=38985:gi=36607:ta=39494:dr=39510
  19. 1180 nl=39780:dl=39781:ds=39794:gl=39817:gs=39833:dg=36433
  20. 1190 a1(1)=dl:a1(2)=ds:a1(3)=gl:a1(4)=gs
  21. 1200 a2(1)=di:a2(2)=dg:a2(3)=gin:a2(4)=dg
  22. 1210 for i=1 to 6:read ad(i):next i
  23. 1220 data 24576,24608,24640,26656,26688,28736
  24. 1230 for i=1 to 4:read ue$(i):next i
  25. 1240 data " dload "," dsave "," gload "," gsave "
  26. 1250 :
  27. 1260 rem
  28. 1270 rem *************
  29. 1280 rem hauptprogramm
  30. 1290 rem *************
  31. 1300 rem
  32. 1310 sys 36352
  33. 1320 nr=peek(be)-1:if nr>0 then gosub 1510:goto 1320
  34. 1330 gosub 1350:goto 1320
  35. 1340 :
  36. 1350 rem
  37. 1360 rem ***************************
  38. 1370 rem up eingabe der stuetzpunkte
  39. 1380 rem ***************************
  40. 1390 rem
  41. 1400 print:print
  42. 1410 for i=1 to 6
  43. 1420 :  h=0
  44. 1430 :  print"hoehe"i"[157]. stuetzpunkt ";:input h
  45. 1440 :  if abs(h)>30 then print"bitte beachten: -30 <= hoehe <= +30![146]":goto1420
  46. 1450 :  if h<0 then h=256+h
  47. 1460 :  poke ad(i),h
  48. 1470 next i
  49. 1480 sys ru
  50. 1490 return
  51. 1500 :
  52. 1510 rem
  53. 1520 rem *******************
  54. 1530 rem up diskettenzugriff
  55. 1540 rem *******************
  56. 1550 rem
  57. 1560 print "[147][144]****************************************"
  58. 1570 print "";tab((40-len(ue$(nr)))/2);ue$(nr)
  59. 1580 n$="":input"filename ";n$
  60. 1590 if n$="" then sys dg:return
  61. 1600 if n$="$"then sys dr:gosub 1690:if fe=0 then sys taste:goto 1560
  62. 1610 if nr<3 then n$=chr$(4)+n$
  63. 1620 if nr>2 then n$=chr$(7)+n$
  64. 1630 poke nl,len(n$)
  65. 1640 for i=1 to len(n$):poke 703+i,asc(mid$(n$,i,1)):next i
  66. 1650 sys a1(nr):gosub 1690:if fe<>0 then 1560
  67. 1660 sys a2(nr)
  68. 1670 return
  69. 1680 :
  70. 1690 rem
  71. 1700 rem **************
  72. 1710 rem up fehlerkanal
  73. 1720 rem **************
  74. 1730 rem
  75. 1740 open 1,8,15:input#1,fe,fe$,a,b:close 1                    
  76. 1750 print:print fe,fe$:if fe<>0 then sys ta
  77. 1760 return
  78.